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Se você deseja explorar plenamente o 
potencial de seu micro, faça-o 
comunicar-se com outros computadores, 
utilizando o modem como elo 

de ligação entre ele e o mundo. 


Dos computadores pode-se dizer que, 
como homens, nenhum deles é uma 
ilha... Pois até mesmo os mais modes- 
tos dentre eles podem ser conectados ao 
sistema telefônico e, em consequência, 
a alguns dos mais poderosos ''cérebros 
eletrônicos” e bancos de dados da Ter- 
ra. Ligado desse modo, um micro nos 
proporciona acesso a quantidades ines- 
gotáveis de informação. 

Um computador, um dispositivo de 
ligação chamado modem, um telefone 
e um software muito simples: eis tudo 
o que é preciso para realizar esse mila- 
gre da informática. 

A comunicação entre computadores 
se dá de três modos básicos: por meio 
de linhas telefônicas ou de ondas de rá- 
dio (ou ambos, em alguns casos); atra- 
vés da co-participação no mesmo siste- 
ma de armazenamento de informação 
(que, na prática, significa co-participa- 
ção na mesma unidade de disco); ou 
com a ajuda de um simples cabo que co- 
necte dois aparelhos — neste caso, ca- 
da um deles pode compartilhar o pro- 
cessador e a memória do outro. 





ALÔ, ALÔ... MUNDO 


Dessas opções, a primeira é sem dú- 
vida a mais excitante, pois representa 
um passo à frente para quem é entusias- 
ta dos computadores pessoais. 

Atualmente, já é possível obter, a 
preços razoáveis, equipamento e softwa- 
re que farão com que o seu aparelho se- 
ja capaz de conversar com outro em 
qualquer lugar do globo, usando as mes- 
mas linhas empregadas pelos sistemas de 
telecomunicações. 

O sistema telefônico proporciona 
acesso a uma imensa faixa de facilida- 
des, como o intercâmbio de software e 
a ampliação dos serviços de noticias e 
informações, que hoje custam muito ca- 





ro, quando realizados pelos meios con- 
vencionais (tele-trabalho). 

Com um computador e um modem, 
você pode consultar listas de compras, 
examinar ilustrações de produtos para 
venda, comparar preços, pagar contas 
instantaneamente, verificar de modo au- 
tomático como andam as suas finanças, 
e fazer quase tudo o que quiser, sem sair 
de casa. 

Para trabalhar juntos, uma secretá- 
ria e seu chefe, por exemplo, não preci- 
sam estar na mesma sala, no mesmo edi- 
fício ou na mesma cidade. Basta para is- 
so que usem formas de comunicação por 
computador. 

Assim, tendo esboçado uma carta no 
micro, o chefe pode enviar todo o ras- 
cunho, com erros ortográficos e de gra- 
mática, à sua secretária, que o corrigirá, 
o formatará de modo a torná-lo apre- 
sentável e o enviara. 





BOLETINS | 


Diversos sistemas telemétricos, como 
o videotexto e o Cirandão, permitem 
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que o usuário estabeleça a sua própria 
“caixa postal”. Assim, se ele quiser en- 
trar em contato com outro usuário, po- 
de “escrever” uma carta no processa- 
dor de textos do micro, e guardá-la na 
“caixa postal” do destinatário. Este úl- 
timo, por sua vez, poderá copiá-la em 
seu microcomputador, a fim de lê-la 
mais tarde. Certamente, tanto quem en- 
via como quem recebe a carta deve ter 
um computador ligado à rede. Um Cor- 
reio Eletrônico desse tipo constitui uma 
poderosa ferramenta, e representa um 
grande progresso em relação aos bo- 
letins. 


Muitas das aplicações mais interes- 
santes para a comunicação entre com- 
putadores envolvem pequenos aparelhos 
com acesso a um grande “cérebro ele- 
trônico”. Entretanto, outras combina- 
ções são possíveis. 

Uma vida solitária? Talvez, mas não 


necessariamente. Também é possivel 
contatar outras pessoas com os mesmos 





interessses em computadores. Em alguns 
casos, independentemente do lugar do 
mundo em que estejam essas pessoas, O 
custo do contato com elas pode ser tão 
pequeno quanto uma simples ligação te- 
lefônica local. Você pode chamar aqui- 
lo que é conhecido por boletim (bulle- 
tin boards, em inglês, comumente tra- 
duzido para '“'quadro de avisos”) para 
ler mensagens enviadas por outras pes- 
soas e também deixar suas próprias 
mensagens. Existem boletins programa- 
dos para vários propósitos. 

Se você decidisse abandonar o con- 
forto de seu lar e aventurar-se a sair pelo 
mundo afora, poderia deixar registrado 
quase tudo no computador — despesas 
com táxis e hotéis, dias de férias, entra- 
das para teatro, passagens de avião, e 
muito mais. 

Mesmo que surjam problemas nas li- 
gações de computadores (causados so- 
bretudo por falhas no estabelecimento 
de padrões comuns), quase sempre se dá 
um jeito; muitos desses trabalhos pio- 
neiros são realizados por amadores e es- 
tudantes entusiasmados e seus professo- 
res em universidades e outros estabele- 
cimentos de ensino superior. 

O crescimento do interesse em comu- 
nicações entre computadores e as indi- 
cações de que esta será a área de explo- 
ração que mais se desenvolverá no fu- 
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turo refletem-se claramente no fato de 
que mais e mais boletins computadori- 
zados estão sendo criados em todo o 
mundo (inclusive no Brasil). 

Embora possam ser feitos pelo pró- 
prio usuário, os boletins são, em sua 
maioria, montados por empresas, geral- 
mente especializadas no ramo da eletrô- 
nica. Alguns desses “boletins empresa- 
riais”” reservam um espaço para os usuá- 
rios comuns, enquanto outros ocupam 
a área do quadro apenas para publicar 
seus serviços e benefícios. Ultimamen- 
te, porém, o setor de maior crescimen- 
to tem sido o dos boletins criados por 
amadores e universitários. 


COMPRAS EM CASA E 





Ainda há quem imagine que essa apli- 
cação da comunicação entre computa- 
dores pertence ao domínio da ficção 
científica, e que será necessário esperar 
muitos anos, até que seja possível reali- 
zar, por exemplo, compras por intermé- 
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dio de um terminal de video em casa. 
Entretanto, tudo isso já é possível atual- 
mente. Nos países mais desenvolvidos, 
muitas pessoas utilizam esse sistema, € 
estão tão familiarizadas com ele, que as 
telecompras já fazem parte de sua roti- 
na diária. No Brasil, o sistema videotex- 
to oferece essa possibilidade em várias 
capitais. 

Nos lugares em que isso já acontece, 
você pode usar o seu computador para 
ter acesso instantâneo a informações so- 
bre produtos, ofertas especiais e preços 
em um grande número de lojas. Ou po- 
de pedir serviços e pagá-los com a sim- 
ples digitação de algumas teclas. O “tra- 
balho” é feito por um computador cen- 
tral. Ele contém toda a informação e 
também faz a transferência eletrônica de 
dinheiro da conta do cliente no banco 
para a conta da loja. 





TELETEXTO E VIDEOTEXTO 


Igualmente crescente é o número de 
serviços de teletexto e videotexto, aos 
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quais é possível conectar até mesmo pe- 
quenos micros domésticos. O serviço de 
teletexto — que ainda não existe no Bra- 
sil — é o que sai mais barato para O 
usuário, pois não é interativo. Desenvol- 
vido na Inglaterra, esse serviço segue 
dois padrões adotados em vários paises: 
o ORACLE (executado pelas compa- 
nhias de televisão independentes) e o 
CEEFAX (executado pela BBC). Com 
o teletexto, o usuário utiliza um televi- 
sor adaptado para receber em casa mi- 
lhares de páginas de informação (textos 
e figuras, por exemplo), que são mos- 
tradas no vídeo. Não é necessário o te- 
lefone, pois as páginas são enviadas por 
radiodifusão, no intervalo entre uma te- 
la e outra da programação normal de 
TV. 

Enviar e carregar programas são duas 
funções de grande interesse em comu- 
nicação de computadores; elas podem 
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ser desempenhadas tanto no videotexto 
quanto no teletexto. Programas podem 
ser transmitidos também por TV ou por 
rádio. Porém, os programas do teletex- 
to têm uma vantagem: eles podem ser 
carregados diretamente no micro, en- 
quanto os programas obtidos por meio 
do rádio precisam ser primeiramente 
gravados em fita para, só então, serem 
carregados pelo modo normal. 

A única desvantagem do teletexto é 
que, como ele usa sinais de radiodifu- 
são, a comunicação se dá apenas em um 
sentido. Já o videotexto (que emprega 
uma linha telefônica para estabelecer co- 
municação) é bidirecional. Isto signifi- 
ca que a sua máquina pode “conversar” 
com o computador central do videotex- 
to. Na realidade, a rede de videotexto 
pode incluir vários computadores regio- 
nais interligados, todos oferecendo ba- 
sicamente o mesmo serviço. Essa mul- 
tiplicidade de computadores ajuda a 
manter baixo o preço do sistema para 
o usuário, que já paga taxas altas só pa- 
ra usar o telefone. Quanto mais perto 
o computador estiver do assinante, mais 
barata será a ligação. 

Outro serviço público de telecomuni- 
cação entre computadores, bem mais di- 
ferenciado e sofisticado que o videotexto 
e o teletexto, é constituído pelas redes 
de microcomputadores, como por exem- 
plo o sistema Cirandão, da empresa es- 
tatal Embratel. Esse sistema proporcio- 


bilidade de conversarem entre si, empre- 
gando uma rede de correio eletrônico 
(“caixas postais"). Além disso, ele ofe- 
rece também muitos outros serviços de 
“boletim computadorizado”, teleconfe- 
rência, consulta a bancos de dados, e re- 
cepção e transmissão de programas de 
computador. 

Uma desvantagem de sistemas com 
muitos usuários e que utilizam a rede te- 
lefônica normal, como o Cirandão, é a 
sua baixa velocidade de transmissão. Is- 
so acontece porque as redes telefônicas 
brasileiras não suportam um ritmo mui- 
to intenso de transmissão, sem degrada- 
ção do sinal. Por isso, usuários profis- 
sionais (bancos, por exemplo) são obri- 
gados a recorrer a redes especiais de 
transmissão em alta velocidade, como é 
o caso de outro serviço da Embratel, o 
Transdata. 

O Transdata permite enviar e receber 
informações em uma faixa maior de ve- 
locidade, o que significa também que 
computadores de diferentes tamanhos e 
velocidades podem compartilhar os ser- 
viços. Estes, porém, são muito mais ca- 
ros do que os cobrados pelo Cirandão 
e pelo videotexto. 

O acesso a bancos de dados e redes 
de computadores situados em outros 


na aos propretos de micros a possi- A qa 








países é possível por intermédio do ser- 
viço Interdata da Embratel. 


CORREIO ELETRÔNICO 





Uma rede pode interligar um compu- 
tador principal, microcomputadores e 
qualquer espécie de periféricos. O jor- 
nal norte-americano New York Times, 
por exemplo, usa os três tipos de com- 
putador em um dos mais sofisticados 
sistemas de produção de informações. 
Em sistemas dessa envergadura, muitas 
pessoas que trabalham em escritório po- 
dem usar o seu próprio terminal ligado 
a um minicomputador, enquanto outro 
terminal no escritório se comunica com 
um computador principal. 

Desse modo, o trabalho do dia-a-dia, 
no caso de uma redação de jornal, po- 
de ser preenchido por um simples mini- 
computador, enquanto o computador 
central é reservado para o uso da admi- 
nistração da empresa e para os bancos 
de dados principais. 

Por outro lado, os jornalistas que es- 
tiverem trabalhando fora da redação po- 
dem valer-se de um microcomputador 
com um modem para ter acesso aos ban- 
cos de dados, visando obter informações 
para suas reportagens. Estas podem ser 
igualmente enviadas à redação por meio 
de um computador e um modem. 

Em muitos países, é comum o fato de 
jornalistas (“'cobrindo””, por exemplo, 
uma partida de futebol ou uma corrida 
de Fórmula-l) utilizarem diretamente 
um teclado e um vídeo, em lugar de uma 
máquina de escrever. Ao serem aperta- 
das algumas teclas, o resumo e o resul- 
tado do jogo são instantaneamente en- 
viados ao computador da redação. 

Como os fabricantes de computado- 
res ainda não se ajustaram à necessida- 
de de estabelecer padrões comuns inter- 
nacionais, a comunicação entre compu- 
tadores não é, por enquanto, tão fluida 
como se poderia desejar. Entretanto, os 
problemas que concorrem para isso es- 
tão sendo solucionados e, aos poucos, 
os computadores vão se tornando com- 
patíveis entre si. Isso tem acontecido 
principalmente no caso da comunicação 
entre computadores por intermédio de 
linhas telefônicas. 





SEGURANÇA 


O fato de computadores diferentes 
poderem se comunicar uns com os ou- 
tros através de linhas telefônicas agra- 
da muitos possuidores de micros, mas 
assusta universidades e grandes empre- 
sas, bancos e agências do governo. O 


problema é que tais instituições também 
utilizam esse tipo de comunicação. Isto 
as torna vulneráveis pois, apesar das me- 
didas de segurança adotadas pelas au- 
toridades para garantir a confidenciali- 
dade das informações armazenadas e 
transmitidas, seus computadores são, 
vez por outra, “invadidos” por usuários 
não autorizados. 

Esse é o tema do filme Jogos de 
Guerra, que foi objeto de muita contro- 
vérsia, especialmente nos Estados Uni- 
dos, onde a fraude em sistemas telemé- 
tricos tem causado prejuizos de milhões 
de dólares. 

Os crimes eletrônicos são favorecidos 
pela relativa facilidade com que se pro- 
cessa a comunicação entre computado- 
res. Em vez da violência física, os cri- 
minosos utilizam, nesse caso, métodos 
bem mais sutis e sofisticados. Um dos 
maiores problemas com que se defron- 
tam as instituições fraudadas tem sido, 
aliás, saber se estão realmente sendo 
roubadas. Como muitos serviços são fei- 
tos por meio de linhas telefônicas, a in- 
vestigação do crime eletrônico vai se tor- 
nando cada vez mais difícil, particular- 
mente quando o próprio criminoso po- 
de efetuar a mudança dos registros re- 
lativos ao crime. 


OUTROS MEIOS DE COMUNICAÇÃO 





Os telefones não são o único meio de 
comunicação entre computadores. On- 
das de rádio também podem ser usadas, 
desde que haja dois computadores co- 
nectados a equipamentos capazes de 
transmiti-las e recebê-las. 

As fibras ópticas são atualmente o 
meio pelo qual a comunicação entre 
computadores se processa de modo mais 
rápido. Nesse caso, a informação é co- 
dificada em impulsos de luz e transmi- 
tida por meio de finos fios de vidro. Es- 
sa nova tecnologia parece ser mais efi- 
ciente do que qualquer outro método co- 
nhecido: ela faz com que a informação 
viaje à velocidade da luz. As comunica- 
ções por fibra óptica já passaram da fase 
experimental, e estão sendo usadas em 
diversos países, inclusive no Brasil. 

Os raios infravermelhos também vêm 
sendo testados como meio de comuni- 
cação entre micros numa mesma sala, 
A vantagem principal é que se elimina 
o “cipoal” de fios que acompanha toda 
grande instalação de computadores. 


TORRE DE BABEL 


Não importa o meio de comunicação 
sempre existirá problema de escolhido: 





compatibilidade. Isso acontece porque 
um micro só pode se comunicar com ou- 
tro micro (ou com outro dispositivo pe- 
riférico) por intermédio da interface cor- 
reta. Sem a interligação correta de ca- 
bos e soquetes e um código que as duas 
máquinas entendam, a comunicação 
torna-se impossivel. 

A linha telefônica é usada para car- 
regar informações de um computador 
para o outro através de longas distân- 
cias. Entretanto, ela aceita apenas sinais 
seriais. 

Isso não significa que os computado- 
res com interfaces paralelas não sejam 
capazes de enviar sinais pela linha tele- 
fônica. Existem circuitos eletrônicos e 
programas disponíveis que tornaram 
possível essa emissão. Tais dispositivos, 
porém, podem sair mais caros do que o 
próprio computador. 

Um dos problemas com o uso de te- 
lefone para comunicação entre compu- 
tadores é que estes carregam informa- 
ções em impulsos ou pulsos elétricos dis- 
cretos e separados. Mas os telefones 
atuais são projetados para transmitir a 
voz humana — que é um sinal analógi- 
co, continuo e variável. Assim, o dado 
de um computador precisa ser conver- 
tido em um sinal similar. 


MODEMS | | 


O equipamento usado para conver- 
ter os dados do computador em sinais 
que possam ser transmitidos através das 
linhas telefônicas, e vice-versa, é o mo- 
dem. A palavra é uma abreviação de 
MOdulador/DEModulador, que é a des- 
crição da função do modem. 

Existem dois tipos de modem, o aco- 
plador acústico e o modem de conexão 
direta. Ambos variam de formas e ta- 
manhos, mas estão geralmente contidos 
em uma caixa. O acoplador acústico tem 
duas alças de borracha para acomodar 
o bocal do aparelho telefônico. 

O acoplador acústico é conectado ao 
micro e transforma seus sinais em tons 
que podem ser enviados pela linha tele- 
fônica. Ele também converte tons de en- 
trada vindos de outro computador em 
informações digitais que o computador 
receptor pode entender. 

Já o modem de conexão direta codi- 
fica (ou modula) o dado do computa- 
dor diretamente em sinais elétricos e de- 
codifica (ou demodula) a informação de 
entrada em bits seriais entendidos pelo 
computador. Esses modems podem 
transmitir informações a velocidades 
maiores que os acopladores acústicos e 
são menos propensos a erros. 
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Incluído nos programas de animação 
gráfica para os micros 

das linhas Spectrum e TRS-Color que 
apresentamos aqui, o gerador 

gráfico descomplicará a sua vida. 








Em artigo anterior da seção Código 
de Máquina, instruimos os usuários do 
TK-90X e do TRS-Color a inserirem da- 
dos para a montagem de um quadricu- 
lado que poderia ser usado na criação 
de caracteres gráficos (UDG). Nesse ar- 
tigo, apresentamos um pequeno progra- 
ma em linguagem de máquina no qual 
foram inseridos alguns números cujo 
significado — afirmávamos — não pre- 
cisava ser compreendido naquele 
momento. 

Mas agora, com os conhecimentos 
que você já adquiriu a respeito da lin- 
guagem de máquina, é possível abordar 
o que significam esses números. Para fa- 
cilitar sua compreensão, decodificamos 
os números que estavam em Assembler, 
transformando-os em mnemônicos. 

Os usuários do MSX, do Apple e do 
TK-2000 não precisam se preocupar com 
Isso, Pois Os programas para esses mi- 
cros empregam sprites € figuras móveis 
para criar os caracteres gráficos, não 
exigindo assim rotinas em código de 
máquina. 





defb 22 defb 155 
defb O defb 22 
org 65200 defb O defb 0 
yr start defb 144 defb O 
mode defb 1 defb 145 defb 156 
data defb 22 defb 146 defb 157 
defb O defb 22 defb 158 
defb O defb O defb 22 
defb 32 defb O defb O 
defb 32 defb 147 defb O 
defb 32 defb 148 defb 159 
defb 22 defb 149 defb 160 
defb Ú defb 22 defb 161 
defb Q defb O start ld a, (mode) 
defb 32 defb 0 cp 1 
defb 32 defb 150 ld bc,18 
defb 32 defb 151 jr z,print 
defb 22 defb 152 jr c,reset 
deíb O defb 22 Bla CEC 
defb O defb O ãr print 
defb 32 defb O reset ld c,0 
defb 32 defb 153 print ld ix,data 


defb 32 defb 154 ada (x De 











ld a, (23689) 
ld b,a 

ld a,24 

sub b 

ld (ix+l),a 
inc a 

ld (ix+7),a 
inc a 

ld (ix+13),a 
ld a, (23688) 
ld b,a 

ld a,33 

aub b 

ld (ix+2),a 
ld (ix+8),a 
ld (ix+l4),a 
push 1X 

ld a,2 

"ali 51601 
pop de 

ld bc,18B 
call S203€ 
ret 


A primeira instrução faz com que o 
processador passe para o início do pro- 
grama propriamente dito, saltando so- 
bre a longa lista de dados que a segue. 
Evidentemente, poderíamos chamar o 
programa na primeira instrução que 
aparece após a lista de dados; mas, co- 
mo veremos a seguir, é mais fácil 
chamá-lo pelo endereço de origem. 

O primeiro byte de dados, situado lo- 
go depois do rótulo mode, diz ao pro- 
grama que quadro deve ser usado. O 
BASIC dá um POKE O, 1 ou 2 nessa po- 
sição. O UDG 0 é um quadro vazio que 
serve para limpar a tela; e os quadros 
| e 2 são caracteres UDG (por exem- 
plo, tanques de guerra, cada um apon- 
tando para uma direção). Se nenhum 
número for especificado, a rotina assu- 
mirá o valor 1 para o quadro. 


OS DADOS DO UDG 





Depois do rótulo DATA, aparecem 
os detalhes de três quadriculados. O 
Spectrum desenha seus UDG na forma 
de cadeias, mas primeiro tem que ser in- 
formado sobre em que lugar colocá-los. 
As instruções para isso também estão 
contidas na cadeia de dados: 22 é o có- 
digo para o AT em BASIC e os dois ze- 
ros são bytes vazios que a rotina utili- 
zará mais tarde para definir a posição 
de impressão. 

As três séries de três números 32 for- 
mam o quadro vazio de 9 x 9. O núme- 
ro 32 é o código ASCII para o caracte- 
re de espaço. Cada série de três forma 
uma linha do quadro e deve ser prece- 
dida pelo seu próprio AT e pela posição 
de impressão. Esse é o quadro 0. 

O quadro 1 é feito dos UDG de 144 


à 152. Nos dados, eles vêm em grupos 
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de três com um AT e dois bytes livres 
para a posição de print. O quadro 2 é 
feito dos UDG de 153 a 161. 


“QUAL UDG? 





O ld a, (mode) carrega o número in- 
serido, via POKE, no byte mode do acu- 
mulador, e cp 1 0 compara com 1. 

O par de registradores BC é então 
carregado com 18. Na realidade, o nú- 
mero 18 vai para o registrador €, en- 
quanto o B fica vazio, O que interessa 
durante a rotina principal é o valor do 
registrador C; mas o registrador vazio 
B será usado mais tarde, quando cha- 
marmos rotinas da ROM. 

Se o número do mode carregado no 
acumulador for 1, cp 1 ajustará para es- 
se número o indicador de zero. Então, 
ir z, print saltará para a rotina de nome 
print. Lá, o registrador IX é carregado 
com.o endereço do primeiro byte de da- 
dos do UDG e somado com o conteúdo 
do par BC, 18. 

Cada quadro contém dezoito bytes de 
dados: nove para caracteres UDG, três 
para os AT e seis para posições de im- 
pressão. Isso faz o registrador IX pas- 
sar sobre o quadro O e ir para o começo 
do quadro 1. Se o número do mode for 
0, cp 1 ligará o indicador de carry. Em 
seguida, jr c,reset saltará para o rótulo 
reset e carregará € com O. A instrução 
add ix, bc somará então IX ao endere- 
co do rótulo data, deixando IX apon- 
tando para o começo do quadro vazio. 

Se o número do mode não for O nem 
1, deverá ser 2. Nesse caso, O processa- 
dor vai para a instrução sla e. Esta sig- 
nifica “rotação aritmética para a esquer- 
da” e age sobre o registrador C. Ela mo- 
ve todos os bits uma casa à esquerda, 
multiplicando por 2 o conteúdo do re- 
gistrador. 

Assim, ela duplica o 18 (que vai pa- 
ra 36) e salta para o rótulo print. Quan- 
do BC for somado ao apontador IX, es- 
te último será transferido 36 bytes aci- 
ma na lista de dados, parando na posi- 
ção do começo do quadro 2. 





AS POSIÇÕES DE IMPRESSÃO 


A variável de sistema em 23 689 con- 
tém a posição de impressão vertical. 
Ora, a posição de impressão especifica- 
da pelo BASIC é a do topo do quadro. 
Essa variável conta de 1 a 24 de baixo 
para cima da tela, e não ao contrário, 
como em BASIC. Portanto, ela deve ser 
transferida para o registrador B; depois, 
24 é carregado em À e o valor de B é 
subtraído dele. 


O apontador IX contém o endereço 
do primeiro byte do quadro que a roti- 
na irá desenhar. Então ld (ix + 1),a car- 
rega a posição vertical de impressão do 
topo do quadro no próximo byte da lis- 
ta de dados (o primeiro O que estiver 
vazio). 

A é então incrementado para forne- 
cer a posição vertical de impressão da 
próxima linha de caracteres UDG do 
quadro. Isso é carregado no oitavo byte 
da lista por ld (ix + 7),a. Depois, A é in- 


crementado novamente para a terceira 


“Pis OC pau] 








A DA te e di 





linha e isso é carregado no décimo quar- 
to byte. 

Essa operação carregou as posições 
verticais de impressão nos bytes vazios 
logo após o código do AT, 22. 

As posições horizontais de impressão 
provenientes da variável de sistema 
23 688 são então carregadas no acumu- 
lador. Mais uma vez, essa operação é 
feita de trás para a frente, se comparada 
ao que acontece no BASIC. Portanto, 
a posição horizontal é carregada em B; 
A é carregado com 33 e B é subtraido 
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de A para fornecer corretamente a po- 
sição de impressão. 

Como cada linha começa na mesma 
posição horizontal, isso significa que o 
mesmo valor de A pode ser carregado 
em outros espaços vazios na lista de da- 
dos. As Instruções adequadas para fa- 
zer isso são ld (ix + 2),a, Id (ix + 8),a e 
ld (ix + 14),a. 

O apontador IX é então ''empurra- 
do” para a pilha, protegido contra uma 
eventual alteração causada pela rotina 
da memória ROM que está prestes a ser 


chamada. A é carregado com 2, ea ro- 
tina de abertura do canal em 1 601 é 
chamada. O 2 no acumulador define o 
canal a ser usado quando o processador 
vai para uma sub-rotina. O canal l é a 
linha de edição na parte inferior da te- 
la; o canal 2 é a tela principal; é 0 3 a 
impressora. 

O apontador IX que foi guardado na 
pilha é então recuperado no par DE. De- 
pois, BC é carregado com 18, ea rotina 
de impressão de cadeia em 2 032 é cha- 
mada. Essa rotina imprime BC caracte- 
res, começando em DE. Portanto, ela 
imprime os dezoitos caracteres que com- 
põem o quadro, a começar do endereço 
base que está no apontador IX. 

"Feito isto, ret retorna o processador 
para o BASIC. 


o ci RES Ã 


ORG 32000 
LDX 32700 
LDA &3 
STA FCNT 
STA SCNT 
LDA +48 
STA TCNT 
LDA 32250 
BEQ JUMP 
LDU 432300 
DECA 

LDB 472 
MUL 

LEAU D,U 





o qa a e 


ad gisadead frimd ' — eo od 


LDA ,U+ 
STA ,X 
LEAX 32,X 
DEC TCNT 
BNE LOOP 
LDA +48 

STA TCNT 
LEAX -255,X 
DEC FCNT 
BNE LOOP 
LDA +35 

STA FCNT 
LEAX 253,X 
DEC SCNT 
BNE LOOP 
RTS 

CLRB 

STB ,X 
LEAX 32,X 
DEC TCNT 
BNE STLP 
LDA +48 

STA TCNT 
LEAX -255,X 
DEC FCNT 
BNE STLP 
LDA &3 

STA FCNT 
LEAX 253,%X 
DEC SCNT 
BNE STLP 
RTS 

RMB 1 

RMB 1 

RMB 1 


LOOP 


AA a q fo ad ao guia 
' | 


JUMP 
STLP 


, 
= E E ms me 


/ UA 


FCNT 
SCNT 
TENT 











RH [E 





inequaRa RR RS ia 
AAA RR 


O endereço de tela correspondente ao 
canto superior esquerdo do quadricula- 
do é armazenado nas posições de memó- 
ria 32 700 e 32 701 pelo programa BA- 
SIC; LDX carrega esse apontador de 
dois bytes no registrador de X dezesseis 
bits. O número 3 é carregado no acu- 
mulador e armazenado nos dois conta- 
dores de nomes FCNT e SCNT. O qua- 
driculado contém 3 x 3 caracteres. 

Esses contadores aparecem na lista de 
dados no fim do programa. Aqui, O es- 
paço que o contador vai ocupar é reser- 
vado por RMB (reserva byte de memó- 
ria). O número | que vem a seguir sig- 
nifica que somente um byte de memó- 
ria deve ser reservado. Assim, RMB 50 
reservaria 50 bytes de memória. 

O terceiro contador, TCNT, é ajus- 
tado para 8. Depois, o conteúdo de 
32 250 é carregado em A. O número do 
UDG é armazenado em 32 250; se esse 
número for zero, BEQ JUMP desviará 
o programa para uma rotina que limpa 
a tela naquela área. Caso contrário, O 
processador continuará trabalhando 
com o UDG propriamente dito. 





IMPRIMA BLOCOS GRÁFICOS 


O lugar da memória onde os UDG fi- 
cam guardados começa na posição 
32 300; esse número é armazenado em 
U para facilitar os cálculos que definem 
onde se inicia o UDG. O primeiro ca- 
ractere começa no princípio dessa área; 
portanto, seu equivalente é O. Note que, 
no acumulador, o número de caractere 
pedido é decrementado. 

LDB 72 carrega o registrador B 
com 72, e MULtiplica os conteúdos de 
A e B, guardando o resultado em D. Os 
acumuladores A e B são registradores de 
oito bits; D é um registrador de dezes- 
seis bits; por isso, ele não é sobrecarre- 
gado com o resultado. Existem 72 bytes 
em cada gráfico. Cada caractere contém 
oito bytes e há nove caracteres para ca- 
da quadriculado (9 x 8= 72). Essa ope- 
ração calcula o fator necessário para se 
achar o endereço inicial do UDG apro- 
priado. 

A instrução LEAU D,U carrega U 
com o valor de D mais U. Em outras pa- 
lavras, ela vai contando ao longo da lista 
até que seja apontado o começo do ca- 
ractere pedido. 

LDA ,U + carrega o acumulador 
com o conteúdo daquela posição de me- 
mória; depois, incrementa o registrador 
U e prepara-se para trabalhar com o 
próximo. STA ,X armazena o byte do 
caractere obtido da lista de gráficos na 


mm posição de memória apontada por À. 
BM Lembremos que o registrador X contém 
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a posição do canto superior esquerdo do 
bloco na tela gráfica. 

LEAX 32,X soma 32 ao registrador 
X:; isso move o apontador para a próxi- 
ma linha (há 32 posições em cada linha). 
O contador TCNT é então decrementa- 
do; se ele não for igual a zero, a instru- 
ção BNE retornará ao endereço loop pa- 
ra trabalhar com o próximo byte do ca- 
ractere. 

O valor inicial de TCNT é 8; por 15- 
so, loop deve ser executado oito vezes. 





Precisamos de oito bytes, dispostos uns 
sobre os outros, para formar um carac- 
tere. Podemos chamar TCNT de conta- 
dor de bytes de um caractere. 





ADICIONE OUTRO CARACTERE 


LDA %8e STA TCNT retornam o 
valor 8 para o contador TCNT, que ja 
está pronto para trabalhar com o pró- 
ximo caractere. 





já 
4. 


Em seguida, a instrução LEAX -255,X 
move o apontador X para o início do ca- 
ractere à direita. 

Devemos lembrar ainda que o regis- 
trador X contém o apontador de tela, 
e foi oito vezes Incrementado de 32 pa- 
ra imprimir totalmente o caractere (32 
x 8= 256). 

O contador FINT é decrementado de 
modo a percorrer toda a matriz forma- 
da por nove caracteres (ou seja, três de 
cada lado). Quando o resultado do de- 
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crementado for diferente de O (zero), o 
processador voltará para loop e traba- 
lhará com o primeiro byte do caractere 
seguinte, 

Se o resultado for O (zero), o proces- 
sador continuará pelo programa. 





COMO PERCORRER O QUADRICULADO 


O contador FTNT é então reajusta- 
do para 3 e o apontador X, adiantado 


| ] 
| | | 


253 posições. Lembre que, anterior- 
mente, ele havia sido adiantado 32 po- 
sições, O que fez com que o apontador 
fosse para a posição de tela diretamen- 
te abaixo do caractere que acabara de 
ser impresso. Em seguida, ele foi atra- 
sado em 255, o que o deixou na posição 
de tela imediatamente à direita do topo 
do último caractere. 

Se desenharmos um pequeno quadri- 
culado mostrando os caracteres e obser- 
varmos as posições relativas das loca- 
ções de tela, veremos que o registrador 
X foi adiantado em 32 posições. Ele 
aponta agora a posição de tela direta- 
mente abaixo do último caractere im- 
presso e está duas locações à direita do 
lugar em que deveria estar o primeiro 
byte do primeiro caractere na segunda 
fileira, 

Portanto, devemos subtrair 2 do 
apontador X, a fim de movê-lo para a 
posição correta. 

Mas, como o programa já havia sub- 
traído 255, basta somar 253 que iremos 
para o lugar certo. 

O contador SCNT é decrementado: 
ele conta as três linhas de caracteres que 
formam o gráfico inteiro. Quando o re- 
sultado do decremento for diferente de 
O (zero), o BNE levará o processador de 
volta para trabalhar com a linha se- 
guinte, 

Todavia, se o resultado for O (zero), 
isso significa que o gráfico foi impresso 
totalmente; nesse caso, RTS levará o 
processador de volta para o programa 
BASIC, 

Siga atentamente as instruções, que 
o processo acabará se tornando claro e 
compreensível. 





“LIMPE A TELA 


Quando o número do bloco a ser im- 
presso na tela for igual a zero, a rotina 
simplesmente limpará a área da tela que 
está sendo acessada. O modo pelo qual 
se limpa a tela é praticamente o mesmo 
pelo qual se imprime nela. A diferença 
entre eles é que a rotina não precisa con- 
sultar a lista de caracteres, mas somen- 
te imprimir o código 0, ou seja, nada. 

CLRB ajusta o registrador B para 0. 
O 0 é então armazenado nas posições de 
tela apontadas pelo registrador X. Se 
você quiser se movimentar pelo quadri- 
culado, deve atualizar repetidamente o 
registrador X, da mesma maneira que 
na rotina de impressão; só que, desta 
vez, o O em B é armazenado em cada po- 
sição. Uma vez mais, o RTS retornará 
o processador ao BASIC para rodar o 
resto do programa. 










| | | 
| 
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CONJUNTOS DE 
BLOCOS GRÁFICOS (3) 












Nos artigos anteriores, aprendemos 
a criar um grande número de blocos grá- 
ficos e começamos a trabalhar com gru- 
pos de caracteres para fazer um cenário 
de floresta. 

O programa que faz o desenho no úl- 
timo artigo está dividido em partes (com 
exceção do Apple e do TK-2000, para 
os quais publicamos apenas o banco de 
blocos a ser digitado por intermédio do 
monitor). Cada seção cuida de um seg- 
mento (ou figura) do desenho — croco- 
dilo, elefante, árvores, e assim por dian- 
te. A seção deste artigo acrescenta uma 
cobra e um macaco, além de concluir o 
fundo do quadro. Tanto no caso do Ap- 
ple como no do TK-2000, apresentamos 
o programa completo. 

Carregue agora a primeira parte do 
programa para poder digitar a continua- 
ção. Os usuários do Apple e do TK-2000 
devem antes carregar o banco de blocos 
gravado no artigo anterior por intermé- 
dio do monitor. 


140 POKE 23676,254 

150 FOR n=USR “a” TO USR "r"+7 
- READ a: POKE n,a: NEXT n 

160 POKE 23676,253 

170 FOR n=USR "a” TO USR "3"+7 
:- READ a: POKE n,a: NEXT n 

190 POKE 23676,252 

200 FOR n=USR "a” TO USA "u"+7 
- READ a: POKE n,a: NEXT n 


210 POKE 23676,251 
220 FOR n=USR “a” 
: READ a: POKE n,a: 
230 POKE 23676,250 


TO USR "u"+7 


NEXT n 


240 FOR n=USA "a” TO USAR "q"+7 
* READ a: POKE n,a: NEXT n 
510 INK 1 


520 POKE 23676,254 

530 LET z=l144: FOR n=2 TO 7: 
FOR m=16 TO 18: PRINT AT m,n; 
CHAS z: LET z=z+l: NEXT nm: 
NEXT n 

540 POKE 23676,253 

550 LET z=144: FOR n=B TO 12: 
FOR m=17 TO 18: PRINT AT m,n; 


CHRS z: LET z=z+1l: NEXT m: 
NEXT n 
610 INK 0 


620 POKE 23676,252 
630 PRINT AT 0,30;CHAS 144;AT 
81,24;CHAS 145;CHRS 146;AT 1,28 
;CHR$ 147;CHRS 148 





640 PRINT AT 2,23;CHAS 149; 
CHR$ 150;CHAS 151;CHRS 32;CHRS 
152; CHRS 153 

650 PRINT AT 3,23;CHAS 154; 
CHRS 155;CHRS 32;CHAS 32;CHAS 
156;CHRS 157;CHAS 158 

660 PRINT AT 4,24;CHRS 159; 
CHRS$ 160;CHR$S 32;CHRS 161;CHRS 
162;CHRS 163;CHAS 164 

670 POKE 23676,251 
680 PRINT AT 5,24;: 
TO 151: PRINT CHARS n;: 
690 PRINT AT 6,24;CHRS 
CHAS 153;CHAS 153;CHRS 
CHARS 153;CHAS 154;CHRS 
CHRS 156 

700 PRINT AT 7,23;CHAS 157; 
CHR$ 158;CHRS 159;CHBS 32;CHRS 
32:CHRS 160;CHBS 161;CHBS 162; 
AT 8,22;CHRS 163;CHRS 164; 

710 POKE 23676,250 

720 PRINT CHRS 144;CHRS 145; 
CHARS 32;CHR$S 32;CHRS 146;CHRS 
147;AT 9,24;CHAS 148;CHRS 145; 
AT 10,24;CHBAS 150 

B55 INK 6 

B60 FOR n=0 TO 2*PI STEP .05: 
PLOT 70,150: DRAW SIN n*12, 
COS n*12: NEXT n 

B70 FOR n=0 TO 2*PI STEP PI/4: 
PLOT 70,150: DRAW COS n*20,5SIN 
n*420: NEXT n 

970 INK O 


10 FOR I=0 TO 983 

150 CIRCLE (50,30),25,11:PAINT 
(50,30),11 

160 DRAW "BM50, 30C11NU30NE60NRB 
ANF 60ND84NG60NLB4NH30”" 

200 FOR I=1 TO 131 

3090 DATA 641,18,210,673,19,210 
,1705,20,210,642,21,210 

3100 DATA 674,22,210,706,23,210 
,643,24,210,675,25,210 

3110 DATA 707,26,210,644,27,210 
,676,28,210,708,29,210 

3115 REM APAGAR 

3120 DATA 645,30,210, 677,31, 210 
,709,32,210,646,33,210 

3130 DATA 678,34,210,710,35,210 
1679,36,210 

3135 REM APAGAR 

3140 DATA 711,37,210,680,38,210 
/712,39,210,681,40,210 

3150 DATA 713,41,210,682,42,210 
,/714,43,210,683,44,210,715,45,2 
10 

3160 DATA 23,46,148,49,47,148, 5 


FOR n=144 
NEXT n 
152; 
153: 
155; 





Não se trata de mais uma fábula de 
Esopo ou de La Fontaine: aqui, o 
macaco e a cobra se reúnem na floresta 
para nos ensinar os segredos 

do trabalho com blocos gráficos. 





































0,48,148,53,49,148 
3170 DATA 54,50,148,80,51,148,8. 

1,52,148,82,53,148 

3180 DATA 84,54,148,85,55,148,1. 
12,56,148,113,57,148 

3190 DATA 116,58,148,117,59,148 
,118,60,148,145,61,148 

3200 DATA 146,62,148,148,63,148) 
,149,64,148,150,65,148 

3210 DATA 151,66,148,177,67,148 
,178,68,148,179,69,148 

3220 DATA 180,70,148,181,71,148 
,182,72,148,183,73,148 | 
3230 DATA 184,74,148,209,75,148 N 
,210,76,148,211,76,148 

3240 DATA 212,76,148,213,76,148 
,214,77,148,215,78,148,216,79,1 

48 

3250 DATA 240,80,148,241,81,148 
,242,82,148,245,83,148 

3260 DATA 246,84,148,247,85,148 
,271,86,148,272,87,148 

3270 DATA 273,88,148,274,89,148 
,277,90,148,278,91,148,305,92,1, 
48,306,93,148,337,94,148 
1280 DATA 500,95,226,501,96,226/ 
,502,97,226,503,98,226 

3290 DATA 532,99,226,533,100,22 
6,534,101,226,535,102,226 

3300 DATA 536,103,226,565,104,2 
26,566,105,226,567,106,226,568, 
107,226 
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LINHAS DATA QUE COMPLETAM 





— O CENÁRIO DA FLORESTA 
UM MACACO E UMA COBRA 


E O PROGRAMA COMPLETO NO 


APPLE E NO TK-2000 





“COMO COMPLETAR O FUNDO 







SUGESTÕES PARA ANIMAÇÃO 


COMO GUARDAR O BANCO 
| DE BLOCOS 
O SOL EM ALTA RESOLUCÃO 


3310 DATA -32,-4,36,75,80,147 
3320 DATA 342,108,36,343,109,36 
,3/4,110,36,375,111,36 

3330 DATA 406,112,36,407,113,36 
/439,114,96,4/1,114,96 

3340 DATA -44,-20,-15,60,84,96, 
157,163 

3350 DATA 327,115,36,328,116,36 
1329,117,36,330,11B,36 

3360 DATA 360,119,96,361,120,96 
,3492,121,96,424,121,96 

33/70 DATA 456,122,96 


1400 REM COBRA 
1410 DATA 0,0,0,0,0,0,3,14,31,3 
1,63,67,65,254,254,225,71,63,0, 
0,0,0,0,0,0 

1420 DATA 0,0,0,0,255,12,28,28, 
28,254,143,1,0,4,248,208,224 
1430 DATA 0,0,0,0,0,0,0,0,0,0,0 
,128,240,56 

1440 DATA 52,99,225,225,225,96, 
47,31,14,6,2,1,0,0,0,0,0,0,0,0, 
3,5,63,127 

1450 DATA 255,225,240,248,252,2 
55,255,126,60,28,124,247,247,11 
5,31,1,0,0,0,0 

1460 DATA 255,191,159,143,199,1 
94,127,64,128,128,64,63 

1470 DATA 48,112,248,249,253,25 
5,189,255,0,0,0,0,192,252,190,6 
3,63,24,240 

1480 DATA 9,5,7,5,249,67,243,25 
1,255,252,238,239,255 

1490 DATA 192,224,208,223,224,1 
29,193,227,243,247,255,248,240, 
224,192 

1500 DATA 0,0,0,0,255,129,195,1 
99,199 

1510 DATA 239,239,255,0,0,0,0,0 
,/0,0,0,128,248,31,140,158,191,1 
91,255,0,0,0,0 

1520 DATA 0,0,0,1,15,62,206,30, 
61,121,243,247,247,63,15,3,0 
1530 DATA 30,127,191,95,93,61,2 
50,240,194,252,194,192,192,224, 
224,240 

1540 REM MACACO 

1550 DATA 1,2,4,8,16,32,64,128, 
0,0,0,3,31,63,127,252,0,0,0,224 
,248,252,252 

1560 DATA 62,3,15,15,15,15,14,1 
4,12 

1570 DATA 3,142,240,192,128,0,0 
00,1,1,3,3,3,3,3,3,248,240,224, 
224,192 

1580 DATA 192,192,192,30,14,110 
,76,56,0,0,0,0,0,0,0,0,0,0 





1590 DATA 1,28,28,56,56,112,112 
,224,224 

1600 DATA 3,3,1,1,1,0,0,0,192,2 
24,224,240,248,248,252,126,3,7, 
15,31,63,62 

1610 DATA 126,252,192,192,128,0 
10,0,3,7,0,0,0,0,0,0,128,223 
1620 DATA 127,63,31,31,15,7,7,3 
/0,128,128,192,192,192,224,240, 
252,126,126,127 

1630 DATA 63,63,31,31,15,15,7,3 
psp bId,d491,431 

1640 DATA 255,255,231,231,255,2 
52,172,183,128,192,224,224,224, 
224,224,224 

1650 DATA 1,1,0,0,0,1,3,7,248,2 
55,255,255,255,255,255,255,0 
1660 DATA 255,255,255,255,255,2 
55,255 

1670 DATA 15,255,255,255,255,25 
5,255,255,199,255,255,255,255,2 
55,255,255 

1680 DATA 223,239,255,255,252,1 
28,0,128,224,240,248,248,240,96 
/0,0,0,0,200 

1690 DATA 232,248,248,120,112 
1700 DATA 7,15,15,31,31,31,63,6 
3,255,255,255,255,255,255,255,42 
55,192,224,224 

1710 DATA 224,224,224,192,192,0 
,/0,1,1,3,7,14,60,240,224,192,12 
8,128,0,0,0 

1720 DATA 0,0,0,0,0,3,15,31,63, 
63,63,63,126,254,252,240,191,19 
1,63,63,63 

1730 DATA 63,63,63,15,7,7,7,7,7 
7,7 ,192,131,135,159,191,255,25 
4,252 

1740 DATA 252,248,240,224,192,1 
28,0,0,0,1,3,7,6,6,4,0,127,254, 
240,224 

1750 DATA 64,64,0,0,192,0,0,0,0 
,/1,1,3,63,31,63,127,254,252,248 
1240 

1760 DATA 7,3,0,0,0,0,0,0,240,1 
92,0,0,0,0,0,0,7,7,15,31,31,31, 
23,23,224 

1770 DATA 192,128,0,0,0,0,0,7,6 
,(4,0,0,0,0,0 


20 DIM C(59),M(156),S(48),E(17) 
sTI(1),T2(7) FI(7) E2(7) 

90 PCLS 3 

100 DRAW "BM62, 1C2DG6LGZLGLUHLG 
LD6GDGDGDG7DG2DRD3RD2ZFDFDL12H2L 
ULU3HUH4UH2ULUSEUE4R3F 3D2GLHURB 
D2R2E2U3HUHLHLAGL 2G4DGD7FD2FDFD 
F2D” 

110 DRAW "F2DFD2G3DGDGD2GD5G2L2 
GLGZLGLG2D3EUERZND2R2R2ERZERERE 
UEUEUERD9FG4DG2DG2D2ND2R2D5E2US 
ESU9E3R17F3D6FRIEREREZRESUE3UE3 
VE” 

120 DRAW "UZNUZLH2LD3FDGDGDG4LG 
LGLG2LG2HUZEUEU4H3E2R4ERFRFEURU 
H2U6H3L4GH2L2G2DF 2D4G2L2H2U2HUH 
UHUEUEUE ZUEUEUEVEUZEUEREUL4D5L3 
D6L2D3L2D3” 

130 DRAW "BM24, 6U3NL6DLBD2L2D2 
L2D9BM70,43D4GBBM3,64E3BM+10,10 


| | | | 
4 | ] | | 
E | 


D3º 

140 PAINT (50,50),2 

150 DRAW "BM56, 34CIRDBF3DBL7DF2 
BEZBU2” 

160 GET(0,0)-(76,80),M,G 

170 PCLS 

180 DRAW "BM13,11C4G3ILBH2UZEUEZ 
ERERERSFR2F 3RE3RERERIIFRIF2RF4R 
12FR3IFR4ERERZERERERIFD4AGBUIGDGZ 
LGFNRIGD2FDFL4” 

190 DRAW "H2LHLHLHLI8BG4LGLI6HL3 
HLH9LHL2HL263DFR3BM23, 6D3FDF5SRF 
2R9ER2ER7BM52, BLGL3G2LI1H2UE2R7 
F4” 

200 PAINT (60,10),3,4:PAINT (13 
19),3,4 

210 DRAW "BM83,BCIDBL4BG5H3G4H5 
G5H4G5H3G4H4G3HBE4F2ZEZF2EZF2EZF 
4BM7,13LH3E6F4E4FDFDZF9RZFRISE” 
220 GET(0,0)-(88,21),5,6 

370 CIRCLE(50,30),25,2:PAINT (5 
0,30),2:DRAW "BM50, 30C2NU30NE60 


NR84NF 60ND84NG60NLB4NH30” 

430 PUT (10,166)-(98,187),S,PSE 
T 

440 PUT (140,0)-(216,80),M, PSET 


Essas adições encaixam direitinho 
nos programas do artigo anterior — ex- 
ceto no MSX, em que várias linhas de- 
vem ser substituídas e duas delas apa- 
gadas. O que fizemos foi criar mais blo- 
cos gráficos. Novamente as linhas DA- 
TA de 1400 a 1 770 são comuns ao 
Spectrum e ao MSX. O programa do 
Spectrum começa com novas linhas que 
colocarão na memória os dados adicio- 
nais, usando o comando POKE. 

A listagem do MSX teve o compri- 
mento do laço da linha 10 mudado; a 
fim de que os novos dados fossem co- 
locados na parte alta da memória. As li- 
nhas 150 e 160 desenham o sol, O laço 
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da linha 200 também teve seu compri- 
mento modificado para que as posições 
e cores dos novos blocos pudessem ser 
lidas. Essas novas posições e cores se en- 
contram nas linhas DATA a partir de 
3 090. Observe que parte das linhas do 
antigo programa teve que ser apagada, 
pois as posições dos blocos no banco fo- 
ram modificadas. 

O TRS-Color usa DRAW para dese- 
nhar os novos personagens e GET para 
armazenar os padrões em matrizes. 

Cada programa coloca os blocos nas 
posições adequadas no cenário. 


Lá | 


O primeiro passo consiste em carre- 
gar o banco de blocos fornecido, por 


meio do monitor, Se você gravou o seu, 
entre o monitor com: 


CALL -151 
posicione a fita e digite: 
4000.5000 L 


Ou recorra ao gerador de blocos, se 
o seu Apple usa disquete. Eis o progra- 
ma completo: 
10 HGh :E = 16384:T = 8192 
20 HCOLOR= 1: FOR I = O TO 176 


HPLOT 1,159 - 4 * SQR (176 - 
I): NEXT 
30 FOR I = 120 TO 279: HPLOT I 


5430 - 6 * SOR (1 —- 120) + (I 
- 200) * (I > 200) / 10: NEXT 
40  HCOLOR= 5: FOR I = 0 TOZ/S 
TEP .05:F = ( INT ( BND (1) * 1 
0) = 5) 

5O HPLOT 50 + (30 + 20 * EF) * 
COS (1),50 + (26 + 20 * F) * 
SIN (I) TO 50 + (30 + 20 * EF) * 
cos (I + 3.14),50 + (26 + 20 


* EF) * SIN (I + 3.14): NEXT I 
60 READ NF: FORM = 1 TO NF: R 
EAD L,NL 


70 FOR J = | TO NL: READ BI,C, 

NB: FOR K = 1 TO NB 

BO pet LA rçKk=-Is 

N=BI+K-1 

90 FOR I = OTTO 7 

00 PORE T+ IT SA 2>7) 
-8"(7245))7"71428*r4a0 am 4 
> 7) 440% (72>215)*+X+ 102 

4 * 1, PEEK (E + N* 8 + 1) 

110 NEXT I,K,J,M 


120 END 
:50D .PORE T+ [7-8 4 [W> cd) 
- MAL» 45)) * 1280 +40 4 (F 


2 2) + 40 * 47 + 15) +FX+ I0Z 
4 * IT, PEEK (E + N* 8 + T) 
1000 DATA frd7f,3,1,25,14,4 
1,25,14,81,25,14 
1010 DATA 17,3,160,4,7,200,4, 
13,240,4,13 
1040 DATA 3,7 ,30 ,30,9,70, 
30,9,110,30,9,154,34,1,194,34,1 
,234,34,1,273,33,3 
1050 DATA 5,7,30,32,7,70,3 
2,7 ,110,32,7,154,96,1,194,36,1, 
234,36,1,273,35,3 
1060 DATA 3,7,90,28,9,70,2 
8,9,110,28,9,154,32,1,19M4,32,1, 
234,32,1,2873,31,3 
1070 DATA 7,7 ,30,30,9,70, 
30,9,110,30,9,154,34,1,194,34,1 
1 234,34,1,273,33,3 
1080 DATA 0,10,45,25,1,5 
8,18,7,97,17,7,137,17,7,178,18, 


8 
1090 DATA 219,19,9,258, 
18,9,297,17,9,15,17,8,57,19,1 


[| 


No TK-2000 entramos no monitor 
por meio de LM (e o banco de blocos 
deve ser carregado em outra posição): 


A0O00.B0000 L “nome” 





A floresta no TRS-Color. 


Na linha 10, o valor de T deve ser 
mudado para 40 960. Os usuários desse 
micro também podem mudar as cores 
nas linhas 20 a 40. Para modificar as co- 
res dos animais é preciso alterar de uma 
unidade a coluna na qual é impressa a 
figura. (Azul e verde sairão invertidos 
no TK-2000.) 


+ REAGE 





COMO FUNCIONA 





A linha 10 liga a tela gráfica e arma- 
zena em E e T os endereços iniciais das 
duas páginas de vídeo. 

As linhas 20 e 30 desenham as coli- 
nas, e as linhas 40 e 50, o sol. Como não 
há comandos específicos para traçar 
elipses no Apple, tivemos que lançar 
mão de fórmulas matemáticas. 

As linhas 60 a 120 usam quatro la- 
ços FOR ... NEXT para colocar os blo- 
cos em posição correta na tela, Os da- 
dos necessários para tanto estão nas li- 
nhas DATA de 1 000 em diante. 

O método posto em prática é o se- 
guinte: inicialmente, a linha 60 usa 
READ para descobrir o número de fi- 
guras (NF) que serão desenhadas. O la- 
ço FOR ... NEXT que se inicia nessa li- 
nha cuida para que o processo de dese- 
nhar uma figura seja repetido NF vezes. 
A cada figura desenhada, são obtidos a 
seguir, também com READ, a linha (L, 
entre O e 39) em que vai ser colocado o 
canto superior esquerdo da figura e o 
número de linhas da figura (NL). 

O primeiro FOR ... NEXT da linha 
70 cuida de desenhar NL linhas. O pro- 
grama tem que saber qual o número do 
bloco inicial de cada linha da figura no 
banco de memória (BI), em que coluna 
da tela ela começa (C) e quantos blocos 
ela tem (NB). O segundo FOR ... NEXT 
da linha 70 cuida de desenhar NB 
blocos. 














A linha 80 se dedica a calcular a po- 
sição exata da tela (X,Y) e o número do 
bloco no banco (N), para que o laço en- 
tre as linhas 90 e 110 possa desenhar um 
novo bloco. 

Esse tipo de organização das linhas 
DATA só é possível devido à disposição 
dos blocos no banco — carregue o ge- 
rador e observe o banco. As linhas 1 000 
a 1 080 contêm os dados do crocodilo, 
da cobra, das quatro árvores e do 
macaco. 

A linha 1 010, por exemplo, encerra 
os dados da cobra. Ela nos informa que 
esta deve ser desenhada com seu canto 
superior esquerdo na linha 17 e tem três 
linhas de blocos. O primeiro bloco da 
primeira linha ocupa a posição 160 no 
banco e será colocado na coluna 4. Es- 
sa primeira linha tem sete blocos. Com 
um programa assim você poderá fazer 
seus próprios cenários. 


ES ER ES 


Ao ser executado o programa, a tela 
se enche de blocos gráficos e o cenário 
parece completo. Uma cobra, um ma- 
caco e um sol radiante foram acrescen- 
tados pelas novas linhas. (Menos no Ap- 
ple, em que todas as linhas são novas.) 
Poderíamos ter incorporado mais ele- 
fantes, árvores ou crocodilos à cena, 
mas, seja como for, dispomos agora de 
todo um conjunto de novos blocos pa- 
ra usar em nossos desenhos. 


O SOL EM ALTA RESOLUÇÃO 


Note que, além dos blocos, foram 
usados comandos gráficos (não há ne- 
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nhum motivo para não se fazer a com- 
binação das duas técnicas, já que isso dá 
excelentes resultados). 

O Spectrum e o Apple constroem seu 
sol desenhando vários raios bem próxi- 
mos, enquanto o MSX e o TRS-Color 
usam o comando PAINT. 

Podemos ainda alterar o desenho em- 
pregando outros comandos gráficos, de- 
senhando mais colinas ou traçando re- 
tas que façam o chão parecer irregular 
ou rachado. 

Já comentamos a necessidade de usar 
matemática tanto no Apple como no 
TK-2000 devido à falta de recursos grá- 
ficos do BASIC. 

Quando se trabalha com blocos grá- 


ficos, as variações possíveis são quase 


infinitas. Com eles, pode-se não só mo- 
dificar o número de árvores, cobras e 
macacos, como também formar novas 
figuras. Um exemplo óbvio em nosso 
caso seria mudar a cor da copa das ár- 
vores (para branco ou cinza) e desenhar 
nuvens ou arbustos. 

Devemos, contudo, prestar atenção 
nas cores. Se quisermos, por exemplo, 
usar as copas como arbustos, teremos 
que colocá-las no topo das colinas já que 
ambas são verdes. No caso do M5SAXA, po- 
demos mudar o tom de verde, no Ap- 
ple não haverá problemas, já que a co- 
lina não foi pintada. 


ANIMAÇÃO | 


As vantagens de construir as figuras 
com blocos gráficos não terminam aí: 
podemos também convertê-las em figu- 
ras móveis, fazendo certas modificações. 
Para animar os bichos, poderiamos de- 
finir um ou dois blocos extras — cons- 
truindo um novo corpo para o elefante, 
por exemplo, ou uma cauda em posição 
diferente para a cobra, ou mesmo dan- 
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do ao macaco uma banana para comer. 

No MSX, podemos usar sprites para 
animar as figuras. Já no Apple e no 
TK-2000 encontraremos algumas difi- 
culdades, pois os blocos gráficos são um 
tanto lentos. A alternativa é lançar mão 
do comando DRAW, com a ressalva de 
que, com sua utilização, é muito dificil 
preservar ao mesmo tempo a forma e a 
cor de uma figura. As linhas DATA ne- 
cessárias para um DRAW são comple- 
tamente diferentes das linhas que os blo- 
cos gráficos empregam. 


JUNTE BLOCOS PARA FORMAR FIGURAS 


Se quiser empregar blocos gráficos 
para animar os desenhos, as figuras des- 
tas páginas lhe mostrarão como os vá- 
rios caracteres compõem a cobra e o ma- 
caco (o artigo anterior mostra um dese- 
nho semelhante para o crocodilo). Es- 
ses desenhos não correspondem às figu- 
ras do Apple, mas podem ser usados pa- 
ra criar elementos móveis (DRAW); pa- 
ra isso, é preciso apelar para o editor de 
figuras desse micro. 

Enquanto o crocodilo, a cobra e o 
macaco parecem ter seu uso restrito aos 
desenhos de selvas e zoológicos, as ár- 
vores, nuvens e arbustos podem apare- 
cer em outros desenhos. 


GRAVAÇÃO DE BLOCOS 





Os programas considerados até aqui 
empregam um grande número de blocos 
gráficos a título de ilustração, e para 
fornecer blocos potencialmente úteis em 
outros desenhos. 

Todavia, é possível fazer desenhos 
muito interessantes usando uma quan- 
tidade bem menor de blocos. O truque 
para isso consiste em utilizar diversas ve- 








demos, por exemplo, desenhar uma ma- 
nada inteira de elefantes, ou colocar um 
muro em nosso cenário, preenchendo 
uma grande extensão da tela com ape- 
nas dois tipos de blocos gráficos. 

Entretanto, como a produção de blo- 
cos não apresenta problemas, a grande 
vantagem em utilizar poucos blocos es- 
tá em economizar tempo (no trabalho 
de criação e digitação) e espaço de me- 
mória (que as longas linhas DATA dei- 
xam de ocupar. O Spectrum, em parti- 
cular, gasta muita memória para guar- 
dar essas linhas DATA). 

Ao empregarmos linhas DATA para 
armazenar os padrões dos blocos, esta- 
remos ocupando o dobro do espaço ne- 
cessário, já que esses padrões serão 
transferidos para uma outra área da me- 
mória assim que rodarmos o programa. 
Em compensação, podemos economizar 
memória, se gravarmos os bancos de 
blocos diretamente em fita cassete, apa- 
gando a seguir as linhas DATA. 


Para gravar os padrões do banco de 
blocos, use: 


SAVE “nome” CODE x,Y 


onde x é o endereço inicial do segmento 
de memória que queremos gravar, € Y 
é o seu comprimento. 

Devemos, portanto, saber o endere- 
ço inicial do banco de blocos, tanto pa- 
ra colocar nele os valores das linhas DA- 
TA, como para mudar o apontador de 
caracteres UDO. 

O comprimento do bloco é de fácil 
dedução: normalmente, ele é o número 
de blocos multiplicado por 8. O progra- 
ma visto linhas atrás usa oito bancos pa- 
ra guardar todos os blocos necessários 
ao desenho da selva. Cada um desses 
bancos começa 256 bytes acima do ban- 
co anterior (ao contrário do número mi- 
nimo de 168 bytes), a fim de permitir 
que o apontador seja modificado com 
apenas um POKE, em vez de dois. Isso 
também significa que, se quisermos gra- 
var essa porção de memória, devemos 
informar que ela tem 256 x 8 bytes €- 
comprimento. 

Grave os blocos da floresta com: 


SAVE "floresta" CODE 63448, 204B 
Para carregar os blocos de volta, 

digite: 

LOAD "” CODE 


Para colocá-los em outro lugar da 
memória, escreva o novo endereço 
inicial após CODE. 


dMininanBs o « procramaçãomasio 44 15 HO RR RAR! 


zes os mesmos blocos. Desse modo, po-: 





ny 


O MSX grava o banco de blocos em- 
pregando o seguinte comando: 


BSAVE "CAS:nome” x,y 
onde x é o endereço inicial e y, o com- 
primento da parte da memória que que- 
remos gravar. 

No caso do programa acima, use: 
BSAVE "CAS:SELVA” 4HD100,4H1000 


Isso grava apenas o padrão dos blo- 
cos. Lembramos que ficam faltando os 
bytes de cor. (Os blocos não serão visi- 
veis pelo gerador.) 

Para carregar os bytes da fita, use: 


BLOAD "CAS:*" 


[1 


Para gravar os blocos guardados na 
página 2 de vídeo, devemos entrar no 
monitor com: 


CALL - 





Posicione a fita e digite: 
4000.5000 W 


Para carregar o banco, ainda no mo- 
do monitor: 


4000.5000 R 


[O] 


No TK-2000 o processo se assemelha 
ao usado no Apple, só que devemos en- 
trar no monitor com LM, e digitar: 


A0O00.B000 W "floresta” 


A0O0O0.B000 R "* 


(para gravar e ler a fita, respecti- 
vamente). 


Esse computador usa comandos 
DRAW em vez de linhas DATA, de for- 


ma que não há vantagem em gravar os 
blocos, 









UM EDITOR 


O processador de textos é uma das 
mais úteis aplicações para qualquer 
computador pessoal. Em certos casos, 
quando se quer melhorar os resultados, 
pode-se comprar um programa sofisti- 
cado em linguagem de máquina. Pro- 
gramas como esse, porém, são caros e 
o uso do editor nem sempre é simples. 

A parte do programa coberta por es- 
te artigo constitui um padrão para um 
editor de textos simples, que está estru- 
turado de forma a ser útil até mesmo 
aqueles que nunca viram um programa 
desse tipo. Com ele é possível criar me- 
morandos, cartas ou quaisquer outros 
textos a serem enviados para a impres- 
sora. O texto pode ser gravado em dis- 
co ou em fita e carregado para uma pos- 
terior utilização. 

Devido ao tamanho do programa 
completo — pelo menos 7,5k — a lista- 
gem foi dividida em três unidades, que 
não funcionarão adequadamente até 
que a última parte seja digitada. Ape- 
sar disso, será possível criar arquivos de 
texto no fim da segunda parte. A tercei- 
ra parte é formada pela rotina para a im- 
pressora, que possibilita o envio de da- 
dos para impressão, Ordenação e roti- 
na de busca estarão disponíveis. 

Vejamos como o programa funciona, 
antes que sua primeira parte seja digi- 
tada. Ele está destinado a várias aplica- 
ções domésticas; mas, como em qual- 
quer outro programa desse tipo, seus 
menus e telas de apresentação podem ser 
modificados ao bel-prazer do usuário. 
Todavia, se você resolver modificá-lo, 
tome cuidado para não alterar a nume- 
ração das linhas, de maneira que o com- 
putador possa acessá-las conveniente- 
mente, sobretudo se houver novos mó- 
dulos a serem adicionados. 





O MENU PRINCIPAL 


Ao ser executada, a versão completa 
do programa apresentará imediatamente 
algumas opções para entrada e saída de 
dados. Isso prepara o sistema para o uso 
de cassete ou acionador de discos. No 
caso do Spectrum, quem possuir um Mi- 
crodrive pode adaptar o programa pa- 


== ra utilizá-lo de acordo com as indicações 


oferecidas. 





DE TEXTOS (1) 


Se for de seu interesse, você pode dar ' 
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entrada por um meio e saída por outro 
e mudar mais tarde. 

O menu principal é mostrado e as se- 
guintes opções são apresentadas: 


[C| ARREGAR 
[G| RAVAR 

[IM] UDAR E/S 

[E] DITAR 

[L] IMPAR MEMÓRIA 
[1] MPRIMIR 

[S] AIR 


CARREGAR 


Se você quer continuar a trabalhar 
em um texto já existente, pressione € 
para iniciar a rotina que carrega o texto 
na memória. Qualquer outro aí presen- 
te será apagado. Portanto, uma mensa- 
gem “Confirme (S/N)” será inserida 
antes de se dar prosseguimento à roti- 
na. Tecle S para continuar ( ou N para 
interromper). Um nome de arquivo se- 
rá então solicitado: ele é necessário pa- 
ra que se possa continuar. Em seguida, 
o referido arquivo é carregado na me- 
mória e pode ser trabalhado. 





GRAVAR 





A rotina de gravação é usada para 
criar arquivos sequenciais para armaze- 
namento dos textos. Quando essa opção 
for selecionada, teclando-se G — e des- 
de que haja alguma coisa na memória 
— , será solicitado um nome para o ar- 
quivo. O Sinclair Spectrum gravará, 
mesmo que não haja nada na memória. 
Uma entrada nula não será aceita. O sis- 
tema já ''sabe”” qual opção de E/S está 
sendo usada e continua a pedir infor- 
mações de acordo com as necessidades 
do cassete ou do acionador de discos. 
No final, pressione <RETURN> ou 
< ENTER> para efetuar a gravação. 

Os usuários de disquete devem tomar 
bastante cuidado ao escolherem o nome 
do arquivo. Se o título de um arquivo 
já existente for usado, este será apaga- 
do, ficando no disco apenas o arquivo 
mais novo. Rotinas adicionais de grava- 


Datilografe textos sem gastar dinheiro 
com programas sofisticados e 


sem quebrar a cabeça com processadores 


complicados de palavras, 
executando o programa deste artigo. 





ção podem ser incorporadas a fim de 
proteger arquivos, trocar nomes etc. 





ENTRADA/SAÍDA (E/S) 


Se você quiser mudar os parâmetros 
iniciais de entrada e saída (em inglês, 
abreviados por 1/O de input/output), 
pode fazê-lo a qualquer momento, te- 
clando M, Digite sua opção. Isso confi- 
gura automaticamente o programa com 
as novas necessidades. 

O programa do Sinclair Spectrum 
funciona com fita ou Microdrive. As 
mudanças necessárias para o Microdri- 
ve aparecem após a listagem principal. 





TT, CD TT O 


6 
s 

















MODO DE EDIÇÃO 


Pressionar a tecla E leva você a um 
menu secundário que mostra: 


[T] OPO 

[F] IM 

[P] RÓXIMA LINHA 

[C] OR (não para o Apple e o TRS-Color) 
[IM] ENU 


As duas primeiras opções o levam ao 
início (TOPO) ou ao fim (FIM) do tex- 
to que está na memória. A terceira op- 
ção conduz para a última linha com que 
se estava trabalhando. A última o faz re- 
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ANALISE O MENU 
COMO CARREGAR E GRAVAR 
NOMES DE ARQUIVOS 

O TRABALHO DE EDIÇÃO 
COMO AJUSTAR CORES 





tornar ao menu principal. 
A opção COR permite ajustar as co- 
res de frente, fundo e bordas, de acor- 
do com a sua preferência. 

Cada uma das três opções iniciais co- 
loca o programa no modo de entrada. 
A tela mostra linhas demarcando o iní- 
cio e o fim do texto (pode aparecer ape- 
nas uma, se já houver algum texto ar- 
mazenado na memória). Na parte mais 
baixa da tela há uma “'área de trabalho" 
e um indicador de 'memáória livre” (não 
disponível no micro Spectrum) que per- 
mite saber quantos caracteres disponi- 
veis ainda se tem. 

O texto é digitado na parte inferior 
da tela (área de trabalho). Os comandos 





= PARÂMETROS DE ENTRADA 

—  ESAÍDA 
EH | TRABALHECOMO TEXTO 
E COMO LIMPAR A MEMÓRIA 
EE | PROGRAMA EDITOR DE TEXTOS 


ENTER ou RETURN o transferem pa- 
ra a memória e para a área de texto. O 
mesmo acontece quando duas linhas da 
tela são completadas. 

Várias rotinas de edição estão embu- 
tidas no programa. Elas (e as teclas que 
as controlam) variam um pouco de má- 
quina para máquina e serão discutidas 
em maior detalhe no momento oportu- 
no. Toda a edição é feita na área de tra- 
balho. Os controles de edição permitem 
que se movimente pela linha de texto na 
área de trabalho para inserção ou dele- 
ção (supressão) de caracteres, antes que 
o texto seja transferido para a memó- 
ria. O texto que já estiver na memória 
— aquele que é mostrado no painel su- 
perior (área de texto) — deverá ser co- 
piado, uma linha de cada vez, para a 
área de trabalho, antes de ser editado. 

Novas linhas podem ser inseridas em 
qualquer ponto do texto. Isso se conse- 
gue pressionando a tecla apropriada pa- 
ra o modo “editor” (veja instruções de- 
talhadas) e posicionando-se o marcador 
abaixo do ponto onde se quer inserir a 
nova linha. 

Da mesma forma, o texto pode ser re- 
movido, uma linha de cada vez, selecio- 
nando-se o modo editor e posicionan- 
do-se o marcador abaixo da linha a ser 
apagada antes de se pressionar a tecla 
para deleção (supressão). 

Teclas de controle permitem passear 
pelo texto, para a frente ou para trás, 
dez linhas de cada vez (o Spectrum é 
uma exceção). Assim, O texto pode ser 
visualizado antes da impressão ou de 
realizar alguma alteração. 

Pode-se voltar ao menu do modo de 
edição pressionando-se a tecla de “'es- 
cape'”” designada. E possível também 
voltar do modo de edição para o menu 
principal sempre que seja necessário al- 
terar algum parâmetro do sistema. 


“LIMPEZA DA MEMÓRIA 





A memória é limpa por intermédio de 
outra opção disponível a partir do me- 
nu principal. Mas esta só será oferecida 
depois que você responder sim à pergun- 
ta — “Confirma? (S/N)” — que se se- 
gue à teclagem de L. Note que essa op- 


571 


578 


ção não redefine as opções de entrada 
e saída nem os parâmetros da impres- 
sora. Se você quiser reiniciar tudo, pres- 
sione S para retornar ao BASIC e, a se- 
guir, RUN. 

E 


= 


10 POKE 23659,3 


20 BORDER 7: PAPER 7: INK 9: 
CLS 
30 DIM 1(8): FOR N=1l TO 8: 


READ 1 (n): NEXT n 

40 LET Z8="" 

100 LET ext=200: DIM t$S(ext,32 
): LET 11=32: LET p1l=32 

105 LET s5S=" 


110 LET tS(1)=" ARQUIVO DO TOPO 


E SS A | IS Si 


DO TEXTO" 

130 LET t=1l: LET b=6: LET p=4 

140 CLS : PRINT  INVERSE L;AT 

0,8:;” MENU PRINCIPAL ” 

150 PRINT AT 4,8;"1l- Carregar 

texto";AT 6,8;"2- Gravar texto 
".AT 8,8;"3- Trocar papel" ;AT 

10,8:"4- Editar";AT 12,8;"5- L 
impar texto";AT 14,8;"6- Impri 
mir texto";AT 16,8;,"7- Alterar 
impressora";AT 18,8;"B- Saida” 
160 PRINT 41;TAR 7;"Selecione 

opcao (1-8)” 

170 LET aS=INKEYS: 
THEN GOTO 170 

180 IF as<"1l” OR asS>"8B" THEN 
Goto 170 

190 LET a=VAL aS: CLS 


IF ag="* 


200 GOSUB 1I(a) 
210 GOTO 140 
500 CLS PRINT INVERSE J;AT 


4,8;” MENU - EDITOR ”" 
510 PRINT AT 8,6;"1- Topo do £ 
exto”";AT 10,6;"2- Fim do texto 
"AT 12,6;"3- Proxima linha”; 
AT 14,6;"4- Sair do menu de ed 
icao” 
520 PRINT AT 18,7;"Selecione o 
pcao (1-4)” 
530 LET aS=INKEYS: 
THEN GOTO 530 
540 IF a$<"l” OR ag$g>"4” THEN 
GOTO 530 
550 LET a=VAL ag: CLS 
560 IF a=á4 THEN RETURN 
S70 IF a=l) THEN LET p=á 
580 IF a=2 THEN LET p=b-2 
590 GOSUB 1000: GOSUB 2000 
600 GoToO 500 


IF aS="" 


900 PRINT AT 10,6;"Voce tem ce 


rteza?”": PAUSE O 

910 IF INKEY$="B” THEN RUN 
920 RETURN 

4000 RETURN 

6000 REM carregar 


6010 INPUT "Introduza o nome : 
arquivo”, LINE n$: LOAD 
à tS() ATOR 
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6020 LET b=VAL tS(1): LET tS(1) 

="ARQUIVO DO TOPO DO TEXTO”: RE 

TURN 

6200 REM gravar 

6210 LET tS(1)=STAS Db 

6220 INPUT "Introduza o nome do 
arquivo”, LINE n3: IF n$="" OR 
LEN n$>10 THEN GOTO 6220 

6230 SAVE n8 DATA tS(): GOTO 60 
20 

6500 INPUT AT 0,0;"Introduza a 
largura do formula-rio (1-8B0)” 
“pl: IF pl<l OR p1l>80 THEN GOT 
O 6500 

6510 INPUT AT 0,0;"Introduza o 
numero de caracterespor linha 
(1=":(pl):"y”";11: IF 11<1 OR d1 
>pl THEN GOTO 6510 

6520 LET 11=11+1: RETURN 

9000 DATA 6000,6200,3000,500,90 
0,4000,6500,9999 


[ 1 


= 


10 CLS:POKE 150,1 

20 PMODE O:PCLEAR 1:CLEAR 15500 
30 DIM TXS(500) 

40 BLS=CHAS (128):TL=1:CP=1:MW=B 
O:TW=60: PL=66:TH=60:GP=10:LFS=S 
TRINGS (3,13) :GOSUB 5000 





AT ha = a 


mu 


S0 TXS(0) =STRING$ (32,195) 

60 TXS(TL) =STRINGS (32,188) 

70 CLS:PRINT €9,BLS;"menu”;BLS; 
"principal" ;BLS:PRINT 8104," (C) 

ARREGAR" : PRINT 6136," (G)RAVAR”: 
PRINT 6168," (M)JUDAR ENTRADA/SAI 

DA” 

BO PRINT €200," (E)DITAR TEXTO”: 
PRINT 6232," (L) IMPAR MEMORIA” :P 
RINT 8264," (I)MPRIMIA":PRINT €2 
96," (A) LTERAR IMPRESSORA”: PRINT 
8328," (S)AIR”; 

90 BS=INKEYS:IF B$="" THEN 90 
100 B=INSTR("CGMELIAS",BS):IF B 
=0O THEN 90 

110 ON B GO£UB 4500,4000,5000,1 
000,160,3000,5500,130 


120 GOTO 50 
130 CLS:PRINT"VOCE TEM CERTEZA 
(S/N) 7” 


140 RS$=INKEYS: IF R$<>"5” AND R$ 
<>"N” THEN 140 

150 IF A$="S”" THEN CLS:END ELSE 
RETURN 

160 CLS: PRINTEB, BLS;"limpar”;BL 
S:"a”";BLS;"memoria”;BLS:PRINT:P 
RINT'VOCE TEM CERTEZA? (5/N)” 
170 BS$=INKEYS:IF BS<>"N” AND BS 
<>"5”" THEN 170 


180 IF B$="N” THEN RETURN 





"y 











isa taita ts ta dit bits? DPnfa ni ii 


E Bed Bed Bd Bd Rand 


| 


fd Rs hd Fa 






| 190 FOR K=1 TO TL:TXS(K)="":NEX 
T:TL=1:CP=1:RETURN 

1000 CLS:PRINT €42,BL$"menu"BLS 

| "de"BLS"edicao"BLS:PRINT 6104," 
tOPO DO TEXTO" :PRINT €168,"£fIM 
DO TEXTO": PRINT €232,"pROXIMA L 
INHA”: PRINT 6296, "mENU PRINCIPA 


| BS=INKEYS:IF B$="" THEN 10 


| 1020 B=INSTR("TFPM”",BS):IF B=0 
1010 
ON B GOTO 1050,1060,1070,1 


1050 CP=1:GOTO 1070 

1060 CP=TL 

GOSUB 2090:GOSUB 1500:GOTO 
1000 

1080 RETURN 

1500 AS=" *" 

1510 P=0: PRINT €384,AS 

1520 CH=PEEK (140B+P) : TS=INKEYS: 
IF T$="" THEN CH= (CH+64) AND 12 
7: POKE 1408+P,CH:CH=(CH+64) AND 
127:POKE 1408+P,CH:GOTO 1520 
1530 IF LEN(AS)=65 OR TS=CHRS (1 
3) GOSUB 2000 

1540 IF T$=""" THEN SF=0:GOSUB 
2500:G0TO 1510 

50 IF P<LEN(AS)-1 AND TS$=CHRS 


a 
F 
| 



















































(10) THEN AS=LEFTS (AS, P)+MIDS (A 
S,P+2):GOTO 1600 ELSE IF TS8=CHR 
5 (10) THEN 1520 
1560 IF TS$=CHAS (12) THEN RETURN 
1570 IF TS=CHRS (21) THEN P=-(LE 
N(AS)-1)*(P=0):GOTO 1600 
1580 IF TS<>CHAS(8) AND TS<>CHR 
$(9) AND ASC(TS)<32 THEN 1510 
1590 IF TS<>"" AND TS<>CHARS (8) 
AND TS<>CHAS (9) THEN AS=LEFTS(A 
5, P)J+TS+MIDS (AS, P+1) :P=P+1 
1600 PRINT €384,AS 
1610 IF TS=CHRS (9) 
)J-1 THEN P=P+1 
1620 IF TS=CHRS(B) 
P=p-1 
1630 GoToO 1520 
2000 X=1:IF LEN(AS)>33 THEN X=2 
2010 FOR K=TL+X TO CP+X STEP -1 
:TXS (K) =TXS (K-X) :NEXT 
2020 IF LEN(AS)>33 THEN TXS(CP) 
sLEFTS(AS,32): TXS(CP+1) =MIDS (AS 
+33, LEN(AS)-33) ELSE TXS(CP)=AS 
2030 FOR K=0 TO X-1 
2040 IF RIGHTS(TXS(CP+K),1)=" " 
THEN TXS(CP+K) =LEFTS (TXS(CP+K) 
+ LEN(TXS (CP+K))-1) :GOTO 2040 
2050 NEXT 
2060 AS=" ":P=0:PRINT 6384,AS 
2070 PRINT €6416,"* 
2080 TL=TL+X:CP=CP+X 
2090 IF CP<5 THEN ST=0 ELSE STx= 
CP-5 
2100 PRINT €0,;:FOR K=ST TO ST+ 
9:PRINT TXS(K);: IF LEN(TXS(K))< 
32 THEN PRINT 
2110 IF K=CP-) THEN PRINT ">" 
2120 NEXT: PRINT STRINGS (32,140) 
2130 PRINT €6480,BL$S;"mem";BLS;" 
livre=";32*(501-TL);BLS;BLS;"cl 
ear=menu” ;BLS; :POKE 1534,32:P0OK 
E 1529,61:RETUAN 


yu 


10 CLS:KEY FF 

20 COLOR 15,4,4:CLEAR 18000 

30 DIM TXS (500) :VS=STRINGS (39,1 
95) 

40 TL=1:CP=1:MW=B0:TW=60:PL=66: 
TH=60:GP=10:L1S=CHRS(13):LFS=58T 
RINGS (3,L18) 

50 TKS5S (0) =5TRINGS (39,95) :TXS(TL 
)=TXS (0) 

60 CLS:LOCATE Z:PRINT"M E NU 
PRINCIPAL":LOCATE S,4: 
PRINT" [Clarregar”":LOCATE 9,6:PR 
INT" [Glravar” 

70 LOCATE 9,B:PRINT"[Elditar te 

xto”" :LOCATE 9,10:PRINT"[L]Jimpar 
memória”:LOCATE 9,12:PRINT"[1] 

mprimir”:LOCATE 9,14:PRINT"[A]1 
terar impressora”":LOCATE 9,16:P 
RINT"[SJ]air”" 

BO LOCATE 13,20:PRINT"Opção ?"; 
90 BS=INKEYS:IF B$=""THEN 90 
100 B=INSTR("CGELIAS”",BS):IF Bz= 
O THEN 90 

110 ON B GOSUB 4500,4000,1000,1 

70,3000,5500,130 

120 GoTo 50 

130 CLS:BLS="Fim de programa" :G 

OSUB 220 


AND P<LEN(AS 


AND P>0 THEN 


140 LOCATE 12,10:PRINT"Confirme 
(S/N) ”; 

150 AS=INKEYS:IF R$="" THEN 150 

160 IF AR9="S" THEN CLS: END ELSE 
RETURN 

170 CLS:BLS="Limpa a memória":G 

OSUSB 220 

180 LOCATE 12,10:PRINT"Confirme 
(S/N) ”; 

190 RS$=INKEYS:IF R$="" THEN 190 

200 IF R$<>"S” THEN RETURN 

210 FOR K=1 TO TL:TXS(K)="" :NEX 

T:TL=1:CP=1:RETURN 

220 PRINTBLS: PRINT VS:RETUBN 

1000 CLS:BLS$="Menu de edição":G 

OSUB 220:LOCATE 9,8:PRINT"[TJ]op 

o do texto”:LOCATE 9,10:PRINT”[ 

Fljim do texto”":LOCATE 9,12:PRIN 

T"[Pl]róxima linha”":LOCATE 9,l4: 

PRINT" [M]enu principal" 

1010 LOCATE 13,17:PRINT"Opção ? 


1020 


BS$=INKEYS:IF BS="" THEN 10 
20 
1030 B=INSTR("TFPM",BS):IF B=0 
THEN 1020 
1040 ON B GOTO 1050,1060,1070,1 
n80 
1050 CP=1:GOTO 1070 
1060 CP=TL 
1070 CLS:GOSUB 2080:CGOSUB 1090: 
GOTO 1000 
1080 RETURN 
1090 AS=" * 
1100 P=0:LOCATE 0,16:PRINT AS;S 


PC(8B0) 

1110 LOCATE P+39*(P>38),16-(P>3 

8) : PRINTCHRS (219); 

1120 TS=INKEYS:IF T$="" THEN 11 

20 

1130 IF LEN(A$)=79 OR T$=CHRS(1 

3) THEN GOSUB 2000 

1140 IF TS=CHR$(5) 

SUB 2500:GOTO 1100 

1150 IF P<SLEN(AS)-1 AND T$=CHRS 
(4) THEN AS=LEFTS (AS, P) +MIDS (AS 
+ P+2) :GOTO 1200 

1160 IF TS=CHR$(27) THEN RETURN 
1170 IF TS=CHRS(1) THEN P=0:GOT 

O 1200 ELSE IF TS=CHR$S(19) THEN 
P=LEN(AS)-1:GOTO 1200 

1180 IF TS<>CHR$(28) AND TS<>CH 

R$(29) AND TS<CHR$S(32) THEN 111 

O 


THEN SF=0:GO 


1190 IF T5<>"" AND TS<>CHRS (28) 
AND TS<S>CHRS(29) THEN AS=LEFTS 
(AS, P)+TS+MIDS (AS, P+1) : P=P+1 
1200 LOCATE 0, I6:PRINTAS;SPC(BO 
) 

1210 IF TS$=CHRS(28) AND P<LEN(A 
$)-1l THEN P=P+] 

1220 IF T$=CHR$S (29) AND P>O THE 
N P=P-1 

1230 GOTO 1110 

2000 X=1:TF LEN(AS)>40 THEN X=2 
2010 FOR K=TL+X TO CP+X STEP-1: 
TXS (K)=TXS (K-X) :NEXT 

2020 IF LEN(AS)>240 THEN TXS(CP) 
=LEFTS (AS,39): TXS(CP+1)=MIDS (AS 
[/40,LEN(AS)-40) ELSE TXS(CP)=AS 
2030 FOR K=0 TO X-1 

2040 IF RIGHTS(TXS(CP+K),1)=”" * 











THEN TXS (CP+K)=LEFTS (TXS (CP+K) 
|, LEN(TXS (CP+K))-1):GOTO 2040 
2050 NEXT 

2060 AS=" ":P=O0:LOCATE 0,16:PRI 
NTAS;SPC(BO) 

2070 TL=TL+X: CP=CP+HX 

2080 IF CP<9 THEN ST=0 ELSE ST= 
CP-9 

2090 LOCATE 0,0:FOR K= 8T TO ST 
+9: PRINTTXS (K) ; SPC (39-LEN(TRS (K 
11) 
2100 IF K=CP-1 THEN PRINTCHAS (1 
75) :5PC(3B) 
2110 NEXT: PRINTVS 
2120 LOCATE 0,23:PRINT"Mem livr 
e = ":39*(501-TL);" ":;TAB(2Z6): 
"<ESC>=Menu”"; :RETURN 


ra 


10 HOME 

20 DIM TX5(500) 

30 TL = L:CP = 1:MW = BO:TWN = 6 
O:PL = 66:TH = 60:GP = 10:LFS = 


CHARS (13) + CHARS (13) + CHR 
8 (13) * 
40 Ll = 6:81 = L1I:L2 = 1:82 = L 
2:DS = CHAS (4) 
BO FOR Z = 1 TO 40:TXS(0) = TK 
s(0) + "-":ASS = ASS + "HT: NEX 
T 
60 GOSUB 5000 
70 TXS(TL) = TXS(0) 
go HOME : HTAB B: PRINT "M E N 
U PRINCIPAL 
90 VTAB 5: HTAB 10: PRINT "[C] 
arregar”: PRINT : HTAB 10: PRIN 
T "[Glravar": PRINT HTAB 10: 
PRINT "[Mjudar E/S” 
100 PRINT HTAB 10: PRINT "LE 
Iditar texto”: PRINT HTAB 10: 


PRINT "[L]impar memoria": PRIN 
7 - HTAB 10: PRINT "[IJmprimir” 


PRINT HTAB 10: PRINT "[AJIt 
erar impressora": PRINT HTAB 
10: PRINT "[SJair” 

110 PRINT PRINT : PRINT TAB 
( 13)"Opcao =>"; 

120 GET BS: IF BS = CHARS (13) 
THEN 120 

130 BBS = "COMELIAS":B = O: FOR 
72 = 1 TO 8: IF BS = MIDS (BBS 
;Z, 1) THEN B = Z 

140 NEXT : IF B = O THEN 120 
150 ON B GOSUB 4500,4000,5000, 
1000,210,3000,5500,170 

160 GcoTo 70 

170 HOME :BLS = "FIM DE PROGRA 

MA": GOSUB 250 

180 HTAB 12: VTAB 10: PRINT "CC 

ONFIRME (S/N)”";: GET RBS 

190 IF R$ < > "8” THEN RETUR 

N 

200 HOME : END 

210 HOME :BLS = "LIMPAR A MEMO 

RIA”: GOSUB 250 

220 HTAB 12: VTAB 10: PRINT FC 

ONFIRME (S/N)";: GET R$ 


230 IF R$ < > "8” THEN RETUR 
N 
240 FORK = 1 TO TL:TRS(K) = * 


". NEXT :TL = 1:CP = 1: RETURN 






250  INVERSE PRINT BL$S;: PRIN 
T SPC( 40 - LEN (BL8S)): NORMA 
L : RETURN 

1000 HOME : PRINT TAB( 12)"ME 
NU DE EDICAO” 

1010 VTAB 9: HTAB 10: PRINT "I 
TJOPO DO TEXTO" 

1020 PRINT PRINT TAB( 10)7I 
FJIM DO TEXTO” 

1030 PRINT : PRINT TAB( 10)“[ 
PJROXIMA LINHA” 

1040 PRINT PRINT TAB( 10)"[ 
MJENU PRINCIPAL” 

1050 PRINT : PRINT PRINT TA 
B( 13)"Opcao =>"; 

1060 GET BS: IF BS = CHARS (13 
1) THEN 1060 

1070 BB$S = "TFPM":B = O: FOR Z 
= 1 TO 4: IF BS = MIDS (BBS,Z, 
1) THEN B = Z 

1080 NEXT IF B = O THEN 1060 
1090 ON B GOTO 1110,1120,1130, 
1140 

1110 CP = 1: GOTO 1130 

1120 CP = TL 

1130 HOME GOSUB 2090: GOSUB 
1500: GoTO 1000 

1140 RETURN 

1500 AS =" * 

1510 P = 1: HTAB 1: VTAB 20: CA 
LL - 958: PRINT MIDS (AS,2); 
1520 HTAB P: VTAB 20 + (P > 40 
jJ: GET T$ 

1530 IF LEN (AS) = B2 OR TS = 


CHRS (13) THEN GOSUB 2000 


1540 IF TS = CHARS (5) THEN G 

OSUB 2500: GOTO 1510 

1550 IF T$ = CHAS (27) THEN 

RETURN 

1560 IF TS = CHARS (1) THEN P 
= 1: GOTO 1620 

1570 IF T$ = CHR$ (19) THEN P 
= LEN (AS) - 1: GOTO 1620 
1580 IF TS = CHR$ (4) AND (P 
< LEN (AS) - 1) THEN AS = LEF 


TS (AS,P) + MIDS (AS,P + 2): G 
OTO 1620 


1590 IF TS = cHR$ (4) THEN 15 
20 

1600 IF TS < > cCHR$S (8) AND 
TS < > CHARS (21) AND TS < CH 


R$ (32) THEN 1520 

1610 IF TS < > cHAS (8) AND 
TS €< > CHR$ (21) THEN AS = L 
EFTS (AS,P) + TS + MIDS (AS,P 
+ 1):P = P+ 1 


1620 HTAB 1: VTAB 20: CALL -— 

958: PRINT MIDS (AS,2); 

1630 IF TS = CHR$ (8) AND (P 
> 1) THEN P = P - 1 

1640 IF TS = CHR$ (21) AND (P 
< LEN (AS) - 1) THEN P = P + 
1 


1650 GOTO 1520 
2000 X = 1:AS = MIDS (AS,2): 1 
F LEN (AS) > 41 THEN X = 2 


2010 FOR K = TL+XTOCP+ x 

STEP - 1:TXS(K) = TRS(K - X): 

NEXT 

2020 IF LEN (AS) > 41 THEN TX 

S(CP) = JLEFTS (AS,40):TXSICP + 
1) = MIDS (AS,41): GOTO 2040 












































Quais são as principais diferenças 
entre o editor de textos de INPUT e 
os editores vendidos nas lojas especia- 
lizadas? 

A principal diferença consiste em 
que nosso editor é programado em BA- 
SIC, e os editores comerciais, em có- 
digo de máquina. Tais editores atuam 
sobre uma “janela de texto”, ou seja, 
permitem que se edite qualquer seg- 
mento de texto, acrescentando ou eli- 
minando palavras, frases e parágrafos, 
por meio de simples movimentos do 
cursor na tela. 

Em contraste com isso, nosso pro- 
grama edita linha por linha do texto, 
exigindo que as linhas sejam escritas 
na parte inferior da tela e transferidas 
para o campo superior. 

Esse modo de organizar o texto, jun- 
to com a lentidão inerente à linguagem 
BASIC, é a causa de outra diferença 
fundamental: o tempo de gravação e 
leitura dos textos em editores comer- 
ciais é muito menor. 

Outro atributo dos editores comer- 
ciais é a hifenação automática das pa- 
lavras. Somada ao alinhamento à direi- 
ta, essa característica dá ao texto im- 
presso um aspecto mais natural e pro- 
fissional. Não há nenhum motivo, con- 
tudo, para que uma função de hifena- 










ção não possa ser incluída em nosso | 


editor. 





2030 TXS (CP) LP AS =» * T 
THEN 2070 
2040 FOR K = 0 TO X-1 


2050 IF RIGHTS (TXS(CP + K),l 


= AS: 


) =" " THEN TXS(CP + K) = LEF 
TS (TXS(CP + K), LEN (TXS(CP + 
K)) - 1): GOTO 2050 

2060 NEXT 

20720 AS =" ":p = 1: HTAB 1: V 
TAB 20: CALL - 958: PRINT MID 
S (AS,2); 

2080 TL = TL + X:CP = CP + X 


2090 IF CP < 9 THEN ST = O: GO 
TO 2110 

2100 ST = CP - 9 

2110 HTAB 1: VTAB 1: FOR K = 5 


T TO ST + 13: PRINT TXS(K);: IF 
LEN (TXS(K)) < 40 THEN CALL 


- 868: PRINT 

2120 IF K = CP - 1 THEN CALL 
- B6B: PRINT ">" 

2130 NEXT PRINT AS$;: PRINT 


"memoria livre=",40 * (501 - TL 
) 


2140 RETURN 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





“numlivros 


NOVOS LANÇAMENTOS, 
NOVOS SUCESSOS. 


A FRATERNIDADE 


DA PEDRA 


- David Morrell | 
- Umpgrupo secreto, sob 
direção de um padre 

"armado, passa a agir 

' contra o terrorismo. 


Mas, será que violência 


“se combate com mais 


violência? Eis o dilema 
de Drew, agente da Lei 
envolvido com fatos e 
figuras do mundo real, 

| reendente 
do criador de bo. 


nu 
pena mu N 


“AVENTUREIROS 


E MILIONÁRIOS 
Clark Howard 


No romance do Texas, 

a saga da descoberta de 
um poço de petróleo e 

o drama de um casal que 
herda um lote de terra 
aparentemente sem valor 
e enfrenta com coragem 
os poderosos do lugar, 
até vencer. Uma vitória 
antes de tudo moral, 
numa história forte e 
envolvente, com realistas 
cenas de amor. 


Não perca também: A MISSÃO, de Robert Bolt, o livro do filme. 


“EDITORA BEST SELLER 


NexandraDeneh 


De 
ie A 
Da = y Rs too 
DO det ans 
















gas 






CAÇADA SEM FIM 
Bryan Forbes 


Uma brilhante históriade 
espionagem envolvendo 
a KGB. Por que matar 
uma ex-espiã que já tinha 
sido desmascarada e | 
torturada tempos atrás? 
Um agente inglês, seu 
antigo amante, enfrenta 


um desafio: descobrir 
“porque ela foi morta... 


e por que agora! 








“Senão for o primeiro, 





| este vai ser o último 
* edefinitivo guia para 
o prazer que o leitor 
poderá seguir: um livro 
PODER que derruba mitos, faz 
Elia Eai sugestões provocantes e 
A | propõe técnicas ousadas 
Um líder sindical com para se chegar ao 
a volúpia do poder, supersexo, uma relação 
a luta pelos direitos intensa e especial entre 
dos trabalhadores, os casais, que não 
nos Estados Unidos, 


“exclui o romantismo. 


e sua manipulação 

por corruptos 

e oportunistas; o jogo. 
das ambições políticas. 
Admiravelmente escrito, 
um romance atualíssimo. 





